From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 27 Jun 1994 20:44:08 +0000 (+0000)
Subject: (a_write): Verify that *annot is a cons.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~90994
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=f4a3a8c96b85a3dae9fd6bf18523fee6b6675272;p=emacs.git

(a_write): Verify that *annot is a cons.
---

diff --git a/src/fileio.c b/src/fileio.c
index 08632ab1ff8..0a04f713d7b 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -3296,7 +3296,7 @@ a_write (desc, addr, len, pos, annot)
   int nextpos;
   int lastpos = pos + len;
 
-  while (1)
+  while (CONSP (*annot))
     {
       tem = Fcar_safe (Fcar (*annot));
       if (INTEGERP (tem) && XINT (tem) >= pos && XFASTINT (tem) <= lastpos)